REM ---- S3kill.opo needed to run this program
REM ---- S3kill is found in the Psion Library 
REM ---- on Compuserve.
REM ---- Mark Esposito - 1992 Pelican Software

APP Kill
	ICON "\opd\kill.pic"
ENDA

PROC Killapp:
	local appid%(22),i%,d%,fl%,name$(12),titel$(13)
	loader:("s3kill")
	call ($d98d,0,0,0,addr(appid%(1)),0)
	giprint"Pelican Software"
	pause 10
	giprint "modified by WOS"
	pause 10
	gfont 2:gstyle 8
	gat 160,48
	gprint "APP KILLER"
	dinit"Kill All or Individual"
	dposition -1,0
	dbuttons "All",%A,"Individual",%I,"System",27
	d%=dialog
	if d%=0
		return
	endif
	if d%=%a or d%=%A
		fl%=1
		busy  "Killing All Apps ..."
	endif
	i%=2
	while appid%(i%)<>0
	name$=appname$:(appid%(i%))
	if val(right$(name$,2))>6
		if fl%=0
			titel$=""
			titel$="Quit "+left$(name$,loc(name$,".")-1)
			dinit titel$
			dposition -1,0
			dbuttons "Ja",%J,"Nein",%N,"System",27
			d%=dialog
		endif
		if d%=%j or d%=%J or fl%=1
			appkill%:(appid%(i%))
		elseif d%=0
			return
		endif
	endif
	i%=i%+1
	endwh
ENDP
proc loader:(f$)
local dev$(2),path$(6),ext$(4)
path$="\opo\" :ext$=".opo"
dev$="m:"
do
 trap loadm dev$+path$+f$+ext$
 if err
  dev$="A:"
 else break
 endif
 trap loadm dev$+path$+f$+ext$
 if err
  dev$="B:"
 else break
 endif
 trap loadm dev$+path$+f$+ext$
 if err
  giprint err$(err)
  return
 endif
 break
until 0
endp